www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/klatch.asp
<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
'=========================================================
' File: klatch.asp
' Version:3.0
' Date: 2005-8-19
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 920520.com All rights reserved.
' Web: http://www.920520.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579 Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
stats="聚会大厅"
call nav()
if founderr then
call Mslove_error()
else
call tumppages()'翻页处理
strFileName="klatch.asp?"
call main()
end if
call activeonline()
call footer()
sub main()%>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=4><IMG height=75 src="skins/21cn/tp-topleft.gif" width=4></TD>
<TD align=middle width=150 bgColor=#5acb94><IMG height=73
src="Skins/21cn/patylogo.gif" width=136></TD>
<TD width=602 bgColor=#5acb94> </TD>
<TD width=4><IMG height=75 src="skins/21cn/pt-topright.gif"
width=4></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD style="PADDING-TOP: 10pt" vAlign=top align=middle width=228><FONT
face=宋体>
<TABLE id=PartyReview1_tabInfo cellSpacing=0 cellPadding=0 width=220
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD width=8><IMG height=8 src="skins/21cn/pt-1topleft.gif"
width=8></TD>
<TD background=skins/21cn/pt-1top.gif></TD>
<TD width=8><IMG height=8 src="skins/21cn/pt-1topright.gif"
width=8></TD>
</TR>
<TR>
<TD width=8 background=skins/21cn/pt-1left.gif></TD>
<TD vAlign=top bgColor=#effaf6> <TABLE class=td-line id=Table4 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width="19%" height=30><IMG
height=24 src="skins/21cn/icon-oldpt.gif" width=24></TD>
<TD class=pt-title1 align=left
width="57%"><STRONG>活动回顾</STRONG></TD>
<TD class=title_1 vAlign=top align=middle width="24%"><a href="klatchlist.asp"><IMG
height=11 src="skins/21cn/moreNews.gif" width=39
border=0></a></TD>
</TR>
</TBODY>
</TABLE>
<TABLE id=Table5 cellSpacing=4 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD align=left> <table id=PartyReview1_DataGrid1
style="BORDER-RIGHT: 1px dotted; BORDER-TOP: 1px dotted; BORDER-LEFT: 1px dotted; WIDTH: 180px; BORDER-BOTTOM: 1px dotted; BORDER-COLLAPSE: collapse"
cellspacing=0 cellpadding=6 border=0>
<tbody>
<%set rs=server.createobject("adodb.recordset")
sql="select top 10 Title,Kid,Stardate,city from [Ms_klatch] where Checked=1 and datediff(d,Enddate,getdate())>=1"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
call rspages()
do while not rs.eof
%>
<tr>
<td> <table id=Table1 cellspacing=0 cellpadding=0
width="100%" border=0>
<tbody>
<tr>
<td valign=center align=middle colspan=2><a
href="klatchlist.asp"></a></td>
</tr>
<tr>
<td style="LINE-HEIGHT: 15pt; PADDING-TOP: 3px"
valign=top width=15><img
src="skins/21cn/icon_j2.gif"></td>
<td style="LINE-HEIGHT: 15pt"><a href=klview.asp?id=<%=rs("Kid")%>><%=rs("Title")%></a> <font
color=#606060>[<%=rs("Stardate")%>] <%=rs("city")%> </font></td>
</tr>
</tbody>
</table></td>
</tr>
<%rs.movenext
loop
end if
rs.close
%>
</tbody>
</table></TD>
</TR> <tr>
</TBODY>
</TABLE></TD>
<TD width=8 background=skins/21cn/pt-1right.gif></TD>
</TR>
<TR>
<TD><IMG height=8 src="skins/21cn/pt-1bouttomleft.gif" width=8></TD>
<TD background=skins/21cn/pt-1bouttom.gif></TD>
<TD><IMG height=8 src="skins/21cn/pt-1bouttomright.gif"
width=8></TD>
</TR>
</TBODY>
</TABLE>
</FONT><FONT
face=宋体><BR>
<BR>
</FONT><FONT face=宋体>
<TABLE id=Table1 cellSpacing=0 cellPadding=0 width=220 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=8><IMG height=8 src="skins/21cn/pt-1topleft.gif"
width=8></TD>
<TD background=skins/21cn/pt-1top.gif></TD>
<TD width=8><IMG height=8 src="skins/21cn/pt-1topright.gif"
width=8></TD>
</TR>
<TR>
<TD width=8 background=skins/21cn/pt-1left.gif></TD>
<TD vAlign=top align=middle bgColor=#effaf6> <TABLE class=td-line id=Table2 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width="19%" height=30><IMG
height=24 src="skins/21cn/icon-oldpt.gif" width=24></TD>
<TD class=pt-title1 align=left
width="57%"><STRONG>活动相关合作</STRONG></TD>
<TD class=title_1 vAlign=top align=middle
width="24%"></TD>
</TR>
</TBODY>
</TABLE>
<BR>
<IMG height=42
src="skins/21cn/ad-1.gif" width=201 border=0><BR>
<BR>
<IMG height=40
src="skins/21cn/ad-2.gif" width=201 border=0></TD>
<TD width=8 background=skins/21cn/pt-1right.gif></TD>
</TR>
<TR>
<TD><IMG height=8 src="skins/21cn/pt-1bouttomleft.gif" width=8></TD>
<TD background=skins/21cn/pt-1bouttom.gif></TD>
<TD><IMG height=8 src="skins/21cn/pt-1bouttomright.gif"
width=8></TD>
</TR>
</TBODY>
</TABLE>
</FONT><BR></TD>
<TD vAlign=top width=532><FONT face=宋体><BR>
</FONT> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=8><IMG height=8 src="skins/21cn/pt-MainTopL.gif"
width=8></TD>
<TD background=skins/21cn/pt-MainTop.gif height=8></TD>
<TD width=8><IMG height=8 src="skins/21cn/pt-MainTopR.gif"
width=8></TD>
</TR>
<TR>
<TD background=skins/21cn/pt-MainTopLeft.gif> </TD>
<TD vAlign=top bgColor=#f7fcfa> <TABLE cellSpacing=4 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle width=15 height=26><IMG height=17
src="skins/21cn/icon-m.gif" width=5></TD>
<TD class=pt-title1 width=70><STRONG>最近活动</STRONG></TD>
<TD vAlign=bottom align=right>
<TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
<FORM action=klatchlist.asp method=post>
<TBODY>
<TR>
<TD width="387" align=middle>城市：
<input name="City" type="text" id="City" size="10">
类别
<SELECT id=typeid name=typeid>
<option value="1">周末闲聊</option>
<option value="2" selected>酒吧畅饮</option>
<option value="3">郊外远足</option>
<option value="4">游戏切磋</option>
<option value="5">逛街看戏</option>
<option value="6">白领聚会</option>
<option value="7">网站聚会</option>
</SELECT> <input name="action" type="hidden" id="action" value="search">
</TD>
<TD> <INPUT type=image
src="Skins/Default/klatch/but_search.gif" name=Submit> </TD>
</TR>
</TBODY>
</FORM>
</TABLE> </TD>
</TR>
<TR>
<TD align=middle background=skins/21cn/hr-line.gif colSpan=3
height=3></TD>
</TR>
</TBODY>
</TABLE>
<FONT face=宋体>
<TABLE id=PartyList1_partyInfo
style="WIDTH: 100%; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none"
cellSpacing=15 cellPadding=0 border=0>
<TBODY>
<%set rs=server.createobject("adodb.recordset")
sql="select top 15 Title,Kid,Joinnum,Address,Enddate from [Ms_klatch] where Checked=1"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
call rspages()
do while not rs.eof and page_count<Cint(MaxPerPage)
%>
<TR>
<TD> <TABLE class=td-line id=Table3 style="HEIGHT: 124px"
cellSpacing=3 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top rowSpan=6></TD>
<TD align=left colSpan=2><SPAN
class=font14><STRONG><%=rs("Title")%></STRONG></SPAN></TD>
</TR>
<TR>
<TD class=fontS12Cr2 vAlign=top noWrap align=left
width="10%"><B>聚会时间：</B></TD>
<TD class=fontS12Cr2 vAlign=top><%=rs("Enddate")%><FONT
face=宋体> </FONT></TD>
</TR>
<TR>
<TD class=fontS12Cr2 vAlign=top noWrap
align=left><B>聚会地点：</B></TD>
<TD class=fontS12Cr2
vAlign=top><%=rs("Address")%></TD>
</TR>
<TR>
<TD noWrap align=right colSpan=2> <TABLE id=Table4 style="FONT-SIZE: 10pt; HEIGHT: 25px"
cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=bottom align=left height=25><FONT
face=宋体><FONT color=#808080>现已有<SPAN
class=style6> <%=rs("Joinnum")%> </SPAN>人报名</FONT></FONT></TD>
<TD style="PADDING-RIGHT: 5px" vAlign=bottom
align=right height=25><A
href="klview.asp?id=<%=rs("Kid")%>"><IMG
height=18 src="skins/21cn/boutton-info.gif"
width=87
border=0></A></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<%page_count=page_count+1
rs.movenext
loop
end if%>
<TR style="FONT-SIZE: 10pt" align=right>
<TD><SPAN><%if totalrec>0 then
call showpage(strFileName)
end if%></SPAN></TD>
</TR>
</TBODY>
</TABLE>
</FONT></TD>
<TD background=skins/21cn/pt-MainTopright.gif> </TD>
</TR>
<TR>
<TD><IMG height=8 src="skins/21cn/pt-MainB-l.gif" width=8></TD>
<TD background=skins/21cn/pt-MainB-b.gif height=8></TD>
<TD><IMG height=8 src="skins/21cn/pt-MainB-r.gif"
width=8></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top align=middle colSpan=2>
<SCRIPT language=javascript>
function newwindow(w,h,url)
{
var l=(window.screen.width/2)-w/2;
var t=(window.screen.height/2)-h/2;
window.open(url,'','width='+w+',height='+h+',top='+t+',left='+l+',menubar=no,toobar=no,scrollbar=no,resizable=no,status=no,loation=no');
}
</SCRIPT> </TD>
</TR>
</TBODY>
</TABLE>
<%
end sub
%>
</body>
</html>